      PARAMETER (MAXSCR = 50000)
      LOGICAL SCDONE
      COMMON /CHOSKP/ ISCREN(MAXSCR,2),NSCREN,SCDONE


